home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs30.d81
/
xmas.sda
/
CHRISTMAS
(
.txt
)
next >
Wrap
Commodore BASIC
|
2009-10-10
|
910b
|
37 lines
10 REM
11 REM COMMODORE 64 CHRISTMAS ALBUM
12 REM
13 REM
14 REM MUSIC: WAYNE EASTWOOD
15 REM SCREENS/SPRITES: H. REX BOUCHER
16 REM DESIGN/PROG: STEPHEN MURRI
17 REM
18 REM
19 REM
20 REM
21 REM
30 POKE53280,6:POKE53281,6:PRINT"[147]"
31 PRINT"NOTE:":PRINT""
32 PRINT" FOR MAXIMUM EFFECT, IT IS"
33 PRINT" RECOMMENDED THAT THE AUDIO OUTPUT"
34 PRINT" BE CONNECTED TO A HIGH QUALITY"
35 PRINT" SOUND SYSTEM."
36 PRINT"ENTER OPTION:":PRINT""
37 PRINT" R=RUN CONTINUOUSLY"
38 PRINT" S=RUN ONCE, SIT AND WAIT FOR ANY KEY"
39 GETI$:IFI$=""THENGOTO39
40 IFI$<>"S"THENIFI$<>"R"THEN GOTO39
42 IF I$="S"THENPOKE40959,1:GOTO50
43 POKE40959,0
50 PRINT"[147]LOADING":PRINT""
52 POKE198,10
60 PRINT"LOAD"CHR$(34)"CHRISTMASMUSIC"CHR$(34)",8,1"
61 PRINT"NEW"
62 PRINT"LOAD"CHR$(34)"CHRISTMASCODE"CHR$(34)",8,1"
63 PRINT"NEW"
64 PRINT"LOAD"CHR$(34)"CHRISTMASROOT"CHR$(34)",8"
65 POKE198,10
66 DATA 19,13,13,13,13,13,82,85,78,13
67 FORI=1TO10:READX:POKE630+I,X:NEXT
68 POKE56,13:NEW